ETO Development Tools 1

home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 1 / ETO Development Tools 1.iso / Essentials / Developer Essentials Jul 90 / DTS Sample Code / Macintosh Sample Code / Monthly Releases (Compressed) / MacDTS.Sample.Code.88.11.sit / 012. Signals / TestSignal.p < prev next >
MacBinary | 1988-11-01 | 3.5 KB | [TEXT/MPS ]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	ZX81 Sinclair BASIC `(image/sinclairBASIC)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Tue Nov 1 17:22:01 1988, modified Tue Nov 1 17:22:01 1988, creator 'MPS ', type ASCII, 2948 bytes "TestSignal.p" , at 0xc04 382 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 54 65 73 74 53 69 | 67 6e 61 6c 2e 70 00 00 |..TestSi|gnal.p..|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 0b 84 00 | 00 01 7e 9f 93 e9 89 9f |........|..~.....|
|00000060| 93 e9 89 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 3a cf 00 00 |........|....:...|
|00000080| 7b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |{-------|--------|
|00000090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|000000d0| 23 0d 23 09 41 70 70 6c | 65 20 4d 61 63 69 6e 74 |#.#.Appl|e Macint|
|000000e0| 6f 73 68 20 44 65 76 65 | 6c 6f 70 65 72 20 54 65 |osh Deve|loper Te|
|000000f0| 63 68 6e 69 63 61 6c 20 | 53 75 70 70 6f 72 74 0d |chnical |Support.|
|00000100| 23 0d 23 09 45 78 63 65 | 70 74 69 6f 6e 20 68 61 |#.#.Exce|ption ha|
|00000110| 6e 64 6c 69 6e 67 20 66 | 6f 72 20 4d 50 57 20 50 |ndling f|or MPW P|
|00000120| 61 73 63 61 6c 2c 20 4d | 61 63 41 70 70 20 61 6e |ascal, M|acApp an|
|00000130| 64 20 4d 50 57 20 43 0d | 23 0d 23 09 55 46 61 69 |d MPW C.|#.#.UFai|
|00000140| 6c 75 72 65 20 28 61 6b | 61 20 53 69 67 6e 61 6c |lure (ak|a Signal|
|00000150| 73 29 20 2d 20 d2 45 78 | 63 65 70 74 69 6f 6e 61 |s) - .Ex|ceptiona|
|00000160| 6c 20 63 6f 64 65 2c 20 | 77 69 74 68 20 61 20 66 |l code, |with a f|
|00000170| 65 77 20 65 78 63 65 70 | 74 69 6f 6e 73 2e d3 0d |ew excep|tions...|
|00000180| 23 0d 23 09 54 65 73 74 | 43 69 67 6e 61 6c 2e 70 |#.#.Test|Cignal.p|
|00000190| 09 2d 09 54 65 73 74 20 | 74 6f 6f 6c 20 66 6f 72 |.-.Test |tool for|
|000001a0| 20 50 61 73 63 61 6c 20 | 61 63 63 65 73 73 20 74 | Pascal |access t|
|000001b0| 6f 20 65 6e 68 61 6e 63 | 65 64 20 55 46 61 69 6c |o enhanc|ed UFail|
|000001c0| 75 72 65 0d 23 0d 23 09 | 43 6f 70 79 72 69 67 68 |ure.#.#.|Copyrigh|
|000001d0| 74 20 a9 20 31 39 38 35 | 2d 31 39 38 38 20 41 70 |t . 1985|-1988 Ap|
|000001e0| 70 6c 65 20 43 6f 6d 70 | 75 74 65 72 2c 20 49 6e |ple Comp|uter, In|
|000001f0| 63 2e 0d 23 09 41 6c 6c | 20 72 69 67 68 74 73 20 |c..#.All| rights |
|00000200| 72 65 73 65 72 76 65 64 | 2e 0d 23 0d 23 09 56 65 |reserved|..#.#.Ve|
|00000210| 72 73 69 6f 6e 73 3a 09 | 31 2e 30 09 09 09 09 09 |rsions:.|1.0.....|
|00000220| 31 31 2f 38 38 0d 23 0d | 23 09 43 6f 6d 70 6f 6e |11/88.#.|#.Compon|
|00000230| 65 6e 74 73 3a 09 55 46 | 61 69 6c 75 72 65 2e 70 |ents:.UF|ailure.p|
|00000240| 09 09 09 4e 6f 76 65 6d | 62 65 72 20 31 2c 20 31 |...Novem|ber 1, 1|
|00000250| 39 38 38 0d 23 09 09 09 | 09 55 46 61 69 6c 75 72 |988.#...|.UFailur|
|00000260| 65 2e 68 09 09 09 4e 6f | 76 65 6d 62 65 72 20 31 |e.h...No|vember 1|
|00000270| 2c 20 31 39 38 38 0d 23 | 09 09 09 09 55 46 61 69 |, 1988.#|....UFai|
|00000280| 6c 75 72 65 2e 69 6e 63 | 31 2e 70 09 09 4e 6f 76 |lure.inc|1.p..Nov|
|00000290| 65 6d 62 65 72 20 31 2c | 20 31 39 38 38 0d 23 09 |ember 1,| 1988.#.|
|000002a0| 09 09 09 55 46 61 69 6c | 75 72 65 2e 61 09 09 09 |...UFail|ure.a...|
|000002b0| 4e 6f 76 65 6d 62 65 72 | 20 31 2c 20 31 39 38 38 |November| 1, 1988|
|000002c0| 0d 23 09 09 09 09 54 65 | 73 74 43 69 67 6e 61 6c |.#....Te|stCignal|
|000002d0| 2e 63 09 09 4e 6f 76 65 | 6d 62 65 72 20 31 2c 20 |.c..Nove|mber 1, |
|000002e0| 31 39 38 38 0d 23 09 09 | 09 09 54 65 73 74 43 69 |1988.#..|..TestCi|
|000002f0| 67 6e 61 6c 2e 6d 61 6b | 65 09 09 4e 6f 76 65 6d |gnal.mak|e..Novem|
|00000300| 62 65 72 20 31 2c 20 31 | 39 38 38 0d 23 09 09 09 |ber 1, 1|988.#...|
|00000310| 09 54 65 73 74 53 69 67 | 6e 61 6c 2e 70 09 09 4e |.TestSig|nal.p..N|
|00000320| 6f 76 65 6d 62 65 72 20 | 31 2c 20 31 39 38 38 0d |ovember |1, 1988.|
|00000330| 23 09 09 09 09 54 65 73 | 74 53 69 67 6e 61 6c 2e |#....Tes|tSignal.|
|00000340| 6d 61 6b 65 09 09 4e 6f | 76 65 6d 62 65 72 20 31 |make..No|vember 1|
|00000350| 2c 20 31 39 38 38 0d 23 | 0d 23 09 55 46 61 69 6c |, 1988.#|.#.UFail|
|00000360| 75 72 65 20 28 6f 72 20 | 53 69 67 6e 61 6c 73 29 |ure (or |Signals)|
|00000370| 20 69 73 20 61 20 73 65 | 74 20 6f 66 20 65 78 63 | is a se|t of exc|
|00000380| 65 70 74 69 6f 6e 20 68 | 61 6e 64 6c 69 6e 67 20 |eption h|andling |
|00000390| 72 6f 75 74 69 6e 65 73 | 20 73 75 69 74 61 62 6c |routines| suitabl|
|000003a0| 65 20 66 6f 72 0d 23 09 | 75 73 65 20 77 69 74 68 |e for.#.|use with|
|000003b0| 20 4d 61 63 41 70 70 2c | 20 4d 50 57 20 43 2c 20 | MacApp,| MPW C, |
|000003c0| 61 6e 64 20 4d 50 57 20 | 50 61 73 63 61 6c 2e 20 |and MPW |Pascal. |
|000003d0| 49 74 20 69 73 20 61 20 | 6a 61 7a 7a 65 64 2d 75 |It is a |jazzed-u|
|000003e0| 70 20 76 65 72 73 69 6f | 6e 20 6f 66 20 74 68 65 |p versio|n of the|
|000003f0| 20 4d 61 63 41 70 70 0d | 23 09 55 46 61 69 6c 75 | MacApp.|#.UFailu|
|00000400| 72 65 20 75 6e 69 74 2e | 20 54 68 65 72 65 20 69 |re unit.| There i|
|00000410| 73 20 61 20 73 65 74 20 | 6f 66 20 43 20 69 6e 74 |s a set |of C int|
|00000420| 65 72 66 61 63 65 73 20 | 74 6f 20 69 74 20 61 73 |erfaces |to it as|
|00000430| 20 77 65 6c 6c 2e 0d 23 | 0d 2d 2d 2d 2d 2d 2d 2d | well..#|.-------|
|00000440| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000450| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000460| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000470| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000480| 2d 2d 2d 2d 2d 2d 2d 7d | 0d 0d 50 72 6f 67 72 61 |-------}|..Progra|
|00000490| 6d 20 54 65 73 74 53 69 | 67 6e 61 6c 73 3b 0d 0d |m TestSi|gnals;..|
|000004a0| 55 53 45 53 0d 09 4d 65 | 6d 54 79 70 65 73 2c 20 |USES..Me|mTypes, |
|000004b0| 51 75 69 63 6b 44 72 61 | 77 2c 20 4f 53 49 6e 74 |QuickDra|w, OSInt|
|000004c0| 66 2c 20 54 6f 6f 6c 49 | 6e 74 66 2c 20 50 61 63 |f, ToolI|ntf, Pac|
|000004d0| 6b 49 6e 74 66 2c 0d 09 | 55 46 61 69 6c 75 72 65 |kIntf,..|UFailure|
|000004e0| 3b 0d 7b 24 44 2b 7d 0d | 0d 0d 50 52 4f 43 45 44 |;.{$D+}.|..PROCED|
|000004f0| 55 52 45 20 44 6f 43 61 | 74 63 68 4f 75 74 4d 61 |URE DoCa|tchOutMa|
|00000500| 69 6e 28 73 3a 53 54 52 | 49 4e 47 3b 20 6c 6f 6e |in(s:STR|ING; lon|
|00000510| 67 3a 4c 4f 4e 47 49 4e | 54 29 3b 0d 42 45 47 49 |g:LONGIN|T);.BEGI|
|00000520| 4e 0d 09 57 72 69 74 65 | 6c 6e 28 73 2c 20 6c 6f |N..Write|ln(s, lo|
|00000530| 6e 67 3a 32 29 3b 0d 09 | 45 78 69 74 28 54 65 73 |ng:2);..|Exit(Tes|
|00000540| 74 53 69 67 6e 61 6c 73 | 29 3b 0d 45 4e 44 3b 20 |tSignals|);.END; |
|00000550| 7b 44 6f 43 61 74 63 68 | 4f 75 74 4d 61 69 6e 7d |{DoCatch|OutMain}|
|00000560| 0d 0d 09 09 0d 0d 0d 46 | 55 4e 43 54 49 4f 4e 20 |.......F|UNCTION |
|00000570| 56 61 6c 75 65 3a 4c 4f | 4e 47 49 4e 54 3b 0d 09 |Value:LO|NGINT;..|
|00000580| 56 41 52 0d 09 09 63 6f | 64 65 3a 09 49 4e 54 45 |VAR...co|de:.INTE|
|00000590| 47 45 52 3b 0d 09 09 0d | 09 50 52 4f 43 45 44 55 |GER;....|.PROCEDU|
|000005a0| 52 45 20 4e 65 76 65 72 | 3b 0d 09 09 56 41 52 0d |RE Never|;...VAR.|
|000005b0| 09 09 09 63 6f 64 65 3a | 09 49 4e 54 45 47 45 52 |...code:|.INTEGER|
|000005c0| 3b 0d 09 09 09 66 69 3a | 09 09 46 61 69 6c 49 6e |;....fi:|..FailIn|
|000005d0| 66 6f 3b 0d 09 0d 09 09 | 50 52 4f 43 45 44 55 52 |fo;.....|PROCEDUR|
|000005e0| 45 20 48 61 6e 64 6c 65 | 72 28 63 6f 64 65 3a 20 |E Handle|r(code: |
|000005f0| 49 4e 54 45 47 45 52 3b | 20 6d 65 73 73 61 67 65 |INTEGER;| message|
|00000600| 3a 20 4c 4f 4e 47 49 4e | 54 29 3b 0d 09 09 09 42 |: LONGIN|T);....B|
|00000610| 45 47 49 4e 0d 09 09 09 | 09 57 72 69 74 65 6c 6e |EGIN....|.Writeln|
|00000620| 28 27 48 61 6e 64 6c 65 | 72 20 66 72 6f 6d 20 4e |('Handle|r from N|
|00000630| 65 76 65 72 3b 20 6d 65 | 73 73 61 67 65 20 3d 20 |ever; me|ssage = |
|00000640| 27 2c 6d 65 73 73 61 67 | 65 3a 32 2c 27 2c 20 63 |',messag|e:2,', c|
|00000650| 6f 64 65 20 3d 20 27 2c | 63 6f 64 65 3a 32 29 3b |ode = ',|code:2);|
|00000660| 0d 09 09 09 09 7b 74 68 | 69 73 20 77 69 6c 6c 20 |.....{th|is will |
|00000670| 64 6f 20 61 6e 20 69 6d | 70 6c 69 63 69 74 20 46 |do an im|plicit F|
|00000680| 61 69 6c 75 72 65 28 29 | 20 77 68 65 6e 20 69 74 |ailure()| when it|
|00000690| 20 65 78 69 74 73 7d 0d | 09 09 09 45 4e 44 3b 0d | exits}.|...END;.|
|000006a0| 0d 09 09 42 45 47 49 4e | 20 7b 4e 65 76 65 72 7d |...BEGIN| {Never}|
|000006b0| 0d 09 09 09 43 61 74 63 | 68 46 61 69 6c 75 72 65 |....Catc|hFailure|
|000006c0| 73 28 66 69 2c 20 48 61 | 6e 64 6c 65 72 29 3b 0d |s(fi, Ha|ndler);.|
|000006d0| 09 0d 09 09 09 63 6f 64 | 65 20 3a 3d 20 43 61 74 |.....cod|e := Cat|
|000006e0| 63 68 53 69 67 6e 61 6c | 3b 0d 09 09 09 49 46 20 |chSignal|;....IF |
|000006f0| 63 6f 64 65 20 3c 3e 20 | 30 20 54 48 45 4e 20 42 |code <> |0 THEN B|
|00000700| 45 47 49 4e 0d 09 09 09 | 09 57 72 69 74 65 6c 6e |EGIN....|.Writeln|
|00000710| 28 27 4e 65 76 65 72 20 | 73 68 6f 75 6c 64 6e d5 |('Never |shouldn.|
|00000720| 74 20 67 65 74 20 68 65 | 72 65 3b 20 63 6f 64 65 |t get he|re; code|
|00000730| 3d 27 2c 20 63 6f 64 65 | 3a 32 29 3b 0d 09 09 09 |=', code|:2);....|
|00000740| 09 56 61 6c 75 65 20 3a | 3d 20 63 6f 64 65 3b 0d |.Value :|= code;.|
|00000750| 09 09 09 09 45 78 69 74 | 28 4e 65 76 65 72 29 3b |....Exit|(Never);|
|00000760| 0d 09 09 09 45 4e 44 3b | 0d 09 09 0d 09 09 09 46 |....END;|.......F|
|00000770| 72 65 65 53 69 67 6e 61 | 6c 3b 20 7b 22 66 72 65 |reeSigna|l; {"fre|
|00000780| 65 22 20 74 68 65 20 6c | 61 73 74 20 43 61 74 63 |e" the l|ast Catc|
|00000790| 68 53 69 67 6e 61 6c 7d | 0d 09 09 09 0d 09 09 09 |hSignal}|........|
|000007a0| 53 69 67 6e 61 6c 4d 65 | 73 73 61 67 65 28 37 2c |SignalMe|ssage(7,|
|000007b0| 20 37 37 37 37 37 29 3b | 20 7b 53 69 67 6e 61 6c | 77777);| {Signal|
|000007c0| 20 61 20 37 20 74 6f 20 | 74 68 65 20 6c 61 73 74 | a 7 to |the last|
|000007d0| 20 43 61 74 63 68 20 28 | 69 6e 20 74 68 69 73 20 | Catch (|in this |
|000007e0| 63 61 73 65 7d 0d 09 09 | 45 4e 44 3b 7b 4e 65 76 |case}...|END;{Nev|
|000007f0| 65 72 7d 0d 0d 0d 09 50 | 52 4f 43 45 44 55 52 45 |er}....P|ROCEDURE|
|00000800| 20 46 61 69 6c 65 72 3b | 0d 09 09 42 45 47 49 4e | Failer;|...BEGIN|
|00000810| 0d 09 09 09 49 46 20 43 | 61 74 63 68 53 69 67 6e |....IF C|atchSign|
|00000820| 61 6c 20 3d 20 30 20 54 | 48 45 4e 0d 09 09 09 09 |al = 0 T|HEN.....|
|00000830| 4e 65 76 65 72 3b 0d 09 | 09 09 0d 09 09 09 46 61 |Never;..|......Fa|
|00000840| 69 6c 75 72 65 28 36 39 | 2c 20 30 29 3b 09 09 09 |ilure(69|, 0);...|
|00000850| 7b 66 61 69 6c 20 6e 6f | 20 6d 61 74 74 65 72 20 |{fail no| matter |
|00000860| 77 68 61 74 7d 0d 09 09 | 45 4e 44 3b 20 7b 46 61 |what}...|END; {Fa|
|00000870| 69 6c 65 72 7d 0d 09 09 | 0d 09 42 45 47 49 4e 20 |iler}...|..BEGIN |
|00000880| 7b 56 61 6c 75 65 7d 0d | 09 09 63 6f 64 65 20 3a |{Value}.|..code :|
|00000890| 3d 20 43 61 74 63 68 53 | 69 67 6e 61 6c 3b 0d 09 |= CatchS|ignal;..|
|000008a0| 09 49 46 20 63 6f 64 65 | 20 3c 3e 20 30 20 54 48 |.IF code| <> 0 TH|
|000008b0| 45 4e 20 42 45 47 49 4e | 0d 09 09 09 57 72 69 74 |EN BEGIN|....Writ|
|000008c0| 65 6c 6e 28 27 53 68 6f | 75 6c 64 6e d5 74 20 62 |eln('Sho|uldn.t b|
|000008d0| 65 20 68 65 72 65 20 69 | 6e 20 56 61 6c 75 65 2c |e here i|n Value,|
|000008e0| 20 63 6f 64 65 3d 27 2c | 20 63 6f 64 65 3a 32 29 | code=',| code:2)|
|000008f0| 3b 0d 09 09 09 56 61 6c | 75 65 20 3a 3d 20 63 6f |;....Val|ue := co|
|00000900| 64 65 3b 0d 09 09 09 45 | 78 69 74 28 56 61 6c 75 |de;....E|xit(Valu|
|00000910| 65 29 3b 0d 09 09 45 4e | 44 3b 0d 09 09 0d 09 09 |e);...EN|D;......|
|00000920| 7b 77 68 65 6e 20 74 68 | 69 73 20 64 6f 65 73 20 |{when th|is does |
|00000930| 69 74 73 20 72 65 74 75 | 72 6e 20 74 68 65 20 43 |its retu|rn the C|
|00000940| 61 74 63 68 53 69 67 6e | 61 6c 20 61 62 6f 76 65 |atchSign|al above|
|00000950| 20 77 69 6c 6c 20 62 65 | 20 61 75 74 6f 6d 61 74 | will be| automat|
|00000960| 69 63 61 6c 6c 79 20 70 | 6f 70 70 65 64 7d 0d 09 |ically p|opped}..|
|00000970| 09 63 6f 64 65 20 3a 3d | 20 43 61 74 63 68 53 69 |.code :=| CatchSi|
|00000980| 67 6e 61 6c 3b 0d 09 09 | 49 46 20 63 6f 64 65 20 |gnal;...|IF code |
|00000990| 3c 3e 20 30 20 54 48 45 | 4e 20 42 45 47 49 4e 0d |<> 0 THE|N BEGIN.|
|000009a0| 09 09 09 56 61 6c 75 65 | 20 3a 3d 20 63 6f 64 65 |...Value| := code|
|000009b0| 3b 0d 09 09 09 45 78 69 | 74 28 56 61 6c 75 65 29 |;....Exi|t(Value)|
|000009c0| 3b 0d 09 09 45 4e 44 3b | 0d 09 09 0d 09 09 46 61 |;...END;|......Fa|
|000009d0| 69 6c 65 72 3b 0d 09 45 | 4e 44 3b 7b 56 61 6c 75 |iler;..E|ND;{Valu|
|000009e0| 65 7d 0d 20 0d 50 52 4f | 43 45 44 55 52 45 20 4d |e}. .PRO|CEDURE M|
|000009f0| 61 69 6e 3b 0d 09 0d 09 | 56 41 52 0d 09 09 61 53 |ain;....|VAR...aS|
|00000a00| 74 72 69 6e 67 3a 09 09 | 53 74 72 32 35 35 3b 0d |tring:..|Str255;.|
|00000a10| 09 09 63 6f 64 65 3a 09 | 09 09 49 4e 54 45 47 45 |..code:.|..INTEGE|
|00000a20| 52 3b 0d 09 09 72 65 67 | 69 73 74 65 72 4c 6f 6e |R;...reg|isterLon|
|00000a30| 67 3a 09 4c 4f 4e 47 49 | 4e 54 3b 0d 0d 09 42 45 |g:.LONGI|NT;...BE|
|00000a40| 47 49 4e 0d 0d 09 09 72 | 65 67 69 73 74 65 72 4c |GIN....r|egisterL|
|00000a50| 6f 6e 67 20 3a 3d 20 30 | 3b 0d 09 09 0d 09 09 7b |ong := 0|;......{|
|00000a60| 63 61 74 63 68 20 53 69 | 67 6e 61 6c 73 20 6e 6f |catch Si|gnals no|
|00000a70| 74 20 6f 74 68 65 72 77 | 69 73 65 20 63 61 75 67 |t otherw|ise caug|
|00000a80| 68 74 20 62 79 20 74 68 | 65 20 70 72 6f 67 72 61 |ht by th|e progra|
|00000a90| 6d 7d 0d 09 09 63 6f 64 | 65 20 3a 3d 20 43 61 74 |m}...cod|e := Cat|
|00000aa0| 63 68 53 69 67 6e 61 6c | 3b 0d 09 09 49 46 20 63 |chSignal|;...IF c|
|00000ab0| 6f 64 65 20 3c 3e 20 30 | 20 54 48 45 4e 20 42 45 |ode <> 0| THEN BE|
|00000ac0| 47 49 4e 0d 09 09 09 4e | 75 6d 54 6f 53 74 72 69 |GIN....N|umToStri|
|00000ad0| 6e 67 28 63 6f 64 65 2c | 20 61 53 74 72 69 6e 67 |ng(code,| aString|
|00000ae0| 29 3b 0d 09 09 09 61 53 | 74 72 69 6e 67 20 3a 3d |);....aS|tring :=|
|00000af0| 20 43 6f 6e 63 61 74 28 | 27 53 69 67 6e 61 6c 20 | Concat(|'Signal |
|00000b00| 63 61 75 67 68 74 20 66 | 72 6f 6d 20 6d 61 69 6e |caught f|rom main|
|00000b10| 2c 20 63 6f 64 65 20 3d | 20 27 2c 61 53 74 72 69 |, code =| ',aStri|
|00000b20| 6e 67 2c 0d 09 09 09 09 | 27 2c 20 72 65 67 69 73 |ng,.....|', regis|
|00000b30| 74 65 72 4c 6f 6e 67 20 | 3d 20 27 29 3b 0d 09 09 |terLong |= ');...|
|00000b40| 09 44 6f 43 61 74 63 68 | 4f 75 74 4d 61 69 6e 28 |.DoCatch|OutMain(|
|00000b50| 61 53 74 72 69 6e 67 2c | 20 72 65 67 69 73 74 65 |aString,| registe|
|00000b60| 72 4c 6f 6e 67 29 3b 0d | 09 09 45 4e 44 3b 0d 09 |rLong);.|..END;..|
|00000b70| 09 0d 09 09 72 65 67 69 | 73 74 65 72 4c 6f 6e 67 |....regi|sterLong|
|00000b80| 20 3a 3d 20 24 46 46 46 | 46 3b 0d 09 09 0d 09 09 | := $FFF|F;......|
|00000b90| 53 69 67 6e 61 6c 28 56 | 61 6c 75 65 29 3b 0d 09 |Signal(V|alue);..|
|00000ba0| 45 4e 44 3b 20 7b 4d 61 | 69 6e 7d 0d 09 0d 42 45 |END; {Ma|in}...BE|
|00000bb0| 47 49 4e 20 7b 50 52 4f | 47 52 41 4d 7d 0d 09 49 |GIN {PRO|GRAM}..I|
|00000bc0| 6e 69 74 53 69 67 6e 61 | 6c 73 3b 20 7b 43 61 6c |nitSigna|ls; {Cal|
|00000bd0| 6c 20 74 68 69 73 20 77 | 69 74 68 20 6f 74 68 65 |l this w|ith othe|
|00000be0| 72 20 28 69 2e 65 2e 20 | 74 6f 6f 6c 62 6f 78 29 |r (i.e. |toolbox)|
|00000bf0| 20 69 6e 69 74 73 7d 0d | 09 4d 61 69 6e 3b 0d 45 | inits}.|.Main;.E|
|00000c00| 4e 44 2e 0d 00 00 00 00 | 00 00 00 00 00 00 00 00 |ND......|........|
|00000c10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c80| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000c90| 00 00 06 d4 06 4d 44 65 | 66 65 72 73 02 00 00 00 |.....MDe|fers....|
|00000ca0| 41 50 50 4c 3f 3f 3f 3f | 01 00 00 64 01 20 06 d4 |APPL????|...d. ..|
|00000cb0| 0c 54 65 73 74 53 69 67 | 6e 61 6c 2e 70 67 02 00 |.TestSig|nal.pg..|
|00000cc0| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 14 00 c0 |..TEXTMP|S ......|
|00000cd0| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 14 00 c0 |..TEXTMP|S ......|
|00000ce0| 00 00 1f 27 00 00 00 00 | 00 00 00 00 00 00 00 00 |...'....|........|
|00000cf0| 00 00 9b 89 dd 73 00 00 | 0b 84 00 00 01 7e 00 00 |.....s..|.....~..|
|00000d00| 00 00 10 00 00 00 06 d4 | 0a 4d 44 65 66 50 72 6f |........|.MDefPro|
|00000d10| 63 2e 61 6f 02 00 00 00 | 54 45 58 54 4d 50 53 20 |c.ao....|TEXTMPS |
|00000d20| 01 00 00 78 00 00 06 d4 | 00 00 02 c5 00 00 00 00 |...x....|........|
|00000d30| 72 a7 00 00 74 00 00 00 | 00 00 01 cd 00 00 02 00 |r...t...|........|
|00000d40| 9a 4f da f6 9a 5b ea 93 | 00 00 00 00 66 76 00 00 |.O...[..|....fv..|
|00000d50| 00 00 00 00 00 00 00 00 | 00 00 01 22 00 00 6f 83 |........|..."..o.|
|00000d60| 00 39 70 16 00 01 00 00 | 00 00 6f 7f 00 01 00 00 |.9p.....|..o.....|
|00000d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d80| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 45 47 45 |...H..Mo|naco.EGE|
|00000d90| 52 3b 0d 0d 0d 0d 50 52 | 4f 43 45 44 55 52 45 20 |R;....PR|OCEDURE |
|00000da0| 44 6f 43 61 74 63 00 06 | 00 04 00 2a 00 03 01 dd |DoCatc..|...*....|
|00000db0| 02 7d 00 f0 00 00 01 dd | 02 3d 9f 93 a2 55 00 00 |.}......|.=...U..|
|00000dc0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|00000dd0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 27 3d 78 |...L...L|...2.'=x|
|00000de0| 0a a8 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|00000df0| 00 0a 03 ed ff ff 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+